home *** CD-ROM | disk | FTP | other *** search
/ MacHack 2000 / MacHack 2000.toast / pc / The Hacks / Genie / Projects / A-line / Scripts / BaseName < prev    next >
Encoding:
Text File  |  2000-06-24  |  168 b   |  9 lines
  1. #!perl -w
  2. # Special MPW glue
  3. undef;
  4.  
  5. # BaseName
  6.  
  7. # Pass each argument through a filter and print it.
  8. print join(' ', map { s/^(?:.*:)?(.+?):?$/$1/; $_; } @ARGV), "\n";
  9.